











PERICON a 


1. 3 -8bits PORTS A,B & C, each bit being LSTTL compatible, i.e. 
input mode: > 3.3V = logical "1" input 


n 


<0.8V = logical "0" input 
output mode: ?3.3V = logical "1" output : ; i 
1 2 ST J : 
£o,8V = logical "O" output loading being 1 LSTTL equivalent 


** note if non-TTL levels can be tolerated, the output can be'loaded a lot 
more, In particular, a logical "1" output on port A or B can source 
2 mA into the base input of a Darlington pair driver, or through small 
limiting resistor ( say 1809.) into a high luminosity LED. 


2. Am earth line is provided on each of the 2 rows of pin headers, These 


should be connected to the OV of any external circuit interacting with 
PERICON a. 
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EARTH LINE 


3. To drive mains equipment, it is possible to use a heavy duty relay as 
suggested in 2 above. A better way would be to use an OPTO-TRIAC, i.e. an 
optically coupled TRIAC to control mains equipments. nis is a much more 
flexible arrangement and less hazadous. OPTO-TRIAC is available from places 
like RS Components Ltd. The typical connėction would be: 
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EARTH Ling 
4. There are no pull up resistors on the ports I/O connections. However, 
all TTL type input will float high, i.e. appears as logical "1" when nothing 
is connected to it. It is therefore possible to use the circuit below to act 
as input switch sensor.  fysT 
ASSIGNED EXTERNAL 
TO Nev? y 
cece teak” mie Sy Sarre 
pa EARTH LINE ; 
The input impedance is high and would be susceptabie to noise triggering 
if the external switches are more than 12" away. To operate the input with 
remote sensors or switches, use the following circuit. 
$5¥ 
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EARTH LINE 
The +5V can be obtained from the re ; 
( Refer to technical sheet on PERSONA about 
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5. One suggested use of PERICON a is to connect it te an external KEYSWITCH 
matrix, with say PORT A as input and PORT B as output, both using the simple 
mode 0 format of the 8255-A5 chip. 
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The KEYSWITCH matrix can be constructed from strips of kitchen aluminium 
.foil stuck down with double sided tape on thin plastic sheet. Two such sheets 
with 8 strips each are arranged to form the matrix. A single sheet of plastic 
with holes punched out at each intersection of the top and bottom strips then 


complete the matrix. Connections to the Aluminium strips can be made with small 
crocodile clips. 


To operate the KEYSWITCHES, a piece of software is needed to write a 
"O" into PORT B at each of the 8 bits successively, and each time perform a 
PEEK PORT A to determine if a "0" is detected on PORT A. 

( It is necessary to detect "0" as we have mentioned above that an input 
port will appears as all "1"s if nothing is connected to it. It is then 
necessary to write "0" on 1 line and "1" on the remaining 7 lines to PORT B 
in. order to provide the scanning action. ) 


A typical program to replace some functions of the ZX keyboard with a 
large external keyboard would look like: 


DIM KS (8,8) 
LET KS (1I) = wckovews 


Y 
: f 
2 U Define the ZX functional code for each of 
. f the 64 keys of the KEYSWITCH matrix. 
LET KS (8,8) © casccace 
KEYSCAN POKE PORT B, ( 255 - 2 ** B ) - write A'O' to one colum’ 
LET A = PEEK PORT å - check if key pressed 


IF A<>255 THEN GOTO KEYIN 


yes, exit to find which key 
LET B = ( BK =7 ) * ( B+1 `) 


if ( B<7 ) then B = B+1 
else B= 1 


GOTO KEYSCAN - loop back to scan next column 
KEY IN LET X = Bt1l 
LET Y = ( LOG (255 - A) ) / BASE + 1 - get row number from 


š value of A. 
Y=( LOG, (255-A) ) + 1 
LET KEY = CODE K$ ( X,Y ) 
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PERICON a PERICON a 


Below are two Short Subroutines which may be of some use to 
the PERICON 'a' user. They may be used as they are with perhaps 
just a few lines of BASIC or they may be incorporated into a 
Comprehensive Control/Monitoring Program. 


The REM Statements may be Junked to save room when necessary. 


10 rea pericon a INPUT STATUS 
{5 rem this subroutine will present in k$ an B digit representation of the port status. 


16 rem port select variable p$ must be set to "a","b" or "c" 
20 if code p$<38 or code p#)40 then goto 140 
30 let p=code p$-38 

40 let n=48384 

50 poke nt3, 155 

60 let k$="00000000" 

70 let k=peek (n+p) 

80 for i=7 to 0 step -1 

90 if k¢(2##i) then goto 120 

100 let k$(i+1)="1" 

110 let k=k-2##i 

120 next i 

130 print "port "spas" bit 01234547" 

140 print tab {(11);k$ 

{50 return 

140 print "port select på not set" 

170 return 


10 rea pericon a OUTPUT 

15 rea this subroutine will convert the 8 digit string n$ to bin 
16 rem k$ gust be 8 digits and k$(1) = bit i k$(2) : bit 1 aoe a 
17 rea port select variable must be "a", "b" or "c" 

25 if code p$<38 or code p$)40 then goto 140 

30 let p=code p$-38 

40 let n=48384 

45 poke n+3,128 

60 let k=0 

80 if len k$<>8 then goto 160 

90 for i=B to 1 step -1 
100 let k=(kS(i)="1") 428k 

110 next i 
120 poke ntp,k 

130 return 
140 print "port select p$ not set" 
150 goto 170 
160 print "k$ not B digits" 
170 return 


